unit Unit4;

interface

uses Vcl.Graphics, System.Types, System.Classes, System.SysUtils;

type
  TMyClass = class(TPersistent)
  private
    FStartTime: TTime;
  public
    constructor Create;
    property StartTime: TTime read FStartTime;
  end;

implementation

{ TMyClass }

constructor TMyClass.Create;
begin
  FStartTime := GetTime;
end;

end.
